home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b8.d64 / demo 4.3.l < prev    next >
Text File  |  2007-02-28  |  3KB  |  157 lines
  1. 0010 // CITY'SCAPE
  2. 0020 // DEVELOPED FROM 11 YEAR OLD
  3. 0030 // STUDENT' FIRST COMAL PROGRAM
  4. 0040 //
  5. 0050 PROC INIT 
  6. 0060 SETGRAPHIC 1
  7. 0070 FULLSCREEN 
  8. 0080 HIDETURTLE 
  9. 0090 BORDER 0
  10. 0100 BACKGROUND 11
  11. 0110 CLEAR 
  12. 0120 PENCOLOR 0
  13. 0130 ENDPROC INIT
  14. 0140 //
  15. 0150 PROC GROUND'FLOOR(X,Y) CLOSED
  16. 0160 MOVETO X,Y
  17. 0170 SETHEADING 0
  18. 0180 ENDPROC GROUND'FLOOR
  19. 0190 //
  20. 0200 PROC BUILD(X,Y,Z,Q) 
  21. 0210 GROUND'FLOOR(X,Y)
  22. 0220 FORWARD Z
  23. 0230 RIGHT 90
  24. 0240 FORWARD Q
  25. 0250 RIGHT 90
  26. 0260 FORWARD Z
  27. 0270 ENDPROC BUILD
  28. 0280 //
  29. 0290 PROC BUILD2(X,Y,Z,Q) 
  30. 0300 GROUND'FLOOR(X,Y)
  31. 0310 FORWARD Z
  32. 0320 RIGHT 90
  33. 0330 FORWARD Q/2
  34. 0340 LEFT 90
  35. 0350 FORWARD Q/4
  36. 0360 RIGHT 90
  37. 0370 FORWARD Q/2
  38. 0380 RIGHT 90
  39. 0390 FORWARD Z+(Q/4)
  40. 0400 ENDPROC BUILD2
  41. 0410 //
  42. 0420 PROC BUILD3(X,Y,Z,Q) 
  43. 0430 GROUND'FLOOR(X,Y)
  44. 0440 FORWARD Z
  45. 0450 FOR I:=1 TO 2 DO
  46. 0460 RIGHT 90
  47. 0470 FORWARD Q/5
  48. 0480 LEFT 90
  49. 0490 FORWARD Q/5
  50. 0500 ENDFOR I
  51. 0510 RIGHT 90
  52. 0520 FOR I:=1 TO 2 DO
  53. 0530 FORWARD Q/5
  54. 0540 RIGHT 90
  55. 0550 FORWARD Q/5
  56. 0560 LEFT 90
  57. 0570 ENDFOR I
  58. 0580 FORWARD Q/5
  59. 0590 RIGHT 90
  60. 0600 FORWARD Z
  61. 0610 ENDPROC BUILD3
  62. 0620 //
  63. 0630 PROC BUILD4(X,Y,Z,Q) 
  64. 0640 GROUND'FLOOR(X,Y)
  65. 0650 FORWARD Z
  66. 0660 RIGHT 90
  67. 0670 FORWARD Q/2
  68. 0680 RIGHT 90
  69. 0690 FORWARD Q/4
  70. 0700 LEFT 90
  71. 0710 FORWARD Q/2
  72. 0720 RIGHT 90
  73. 0730 FORWARD Z
  74. 0740 ENDPROC BUILD4
  75. 0750 //
  76. 0760 PROC BUILD5(X,Y,Z,Q) 
  77. 0770 GROUND'FLOOR(X,Y)
  78. 0780 FORWARD Z
  79. 0790 RIGHT 90
  80. 0800 FOR I:=1 TO 2 DO
  81. 0810 FORWARD Q/4
  82. 0820 LEFT 90
  83. 0830 FORWARD Q/4
  84. 0840 RIGHT 90
  85. 0850 ENDFOR I
  86. 0860 FORWARD Q/4
  87. 0870 RIGHT 90
  88. 0880 FORWARD Z+Q
  89. 0890 ENDPROC BUILD5
  90. 0900 //
  91. 0910 PROC WINDOW(H,V) 
  92. 0920 MOVETO H,V
  93. 0930 PENCOLOR 7
  94. 0940 PLOT H,V
  95. 0950 ENDPROC WINDOW
  96. 0960 //
  97. 0970 // MAIN
  98. 0980 //
  99. 0990 INIT
  100. 1000 BUILD2(0,0,150,40)
  101. 1010 BUILD(41,0,110,30)
  102. 1020 BUILD5(71,0,163,60)
  103. 1030 BUILD(116,0,130,17)
  104. 1040 BUILD(133,0,134,10)
  105. 1050 BUILD3(143,0,100,25)
  106. 1060 BUILD4(169,0,85,20)
  107. 1070 BUILD2(189,0,170,35)
  108. 1080 BUILD3(225,0,100,45)
  109. 1090 BUILD5(271,0,80,40)
  110. 1100 BUILD4(301,0,125,20)
  111. 1110 PENCOLOR 0
  112. 1120 MOVETO 0,180
  113. 1130 FILL 0,199
  114. 1140 PENCOLOR 1
  115. 1150 PLOT 125,155
  116. 1160 PLOT 40,180
  117. 1170 PLOT 300,150
  118. 1180 PLOT 150,150
  119. 1190 PLOT 10,190
  120. 1200 PLOT 200,195
  121. 1210 PLOT 160,195
  122. 1220 PLOT 260,180
  123. 1230 PENCOLOR 0
  124. 1240 FOR I:=120 TO 123 DO
  125. 1250 WINDOW(I,20)
  126. 1260 ENDFOR I
  127. 1270 WINDOW(125,100)
  128. 1280 WINDOW(245,50)
  129. 1290 WINDOW(260,10)
  130. 1300 WINDOW(200,120)
  131. 1310 WINDOW(205,90)
  132. 1320 WINDOW(230,80)
  133. 1330 WINDOW(245,50)
  134. 1340 WINDOW(260,10)
  135. 1350 WINDOW(210,10)
  136. 1360 WINDOW(10,100)
  137. 1370 WINDOW(30,120)
  138. 1380 WINDOW(35,5)
  139. 1390 WINDOW(45,85)
  140. 1400 WINDOW(46,85)
  141. 1410 WINDOW(56,26)
  142. 1420 WINDOW(60,26)
  143. 1430 WINDOW(80,150)
  144. 1440 WINDOW(107,175)
  145. 1450 WINDOW(82,50)
  146. 1460 WINDOW(102,34)
  147. 1470 WINDOW(122,124)
  148. 1480 WINDOW(125,12)
  149. 1490 WINDOW(137,42)
  150. 1500 WINDOW(139,120)
  151. 1510 WINDOW(150,10)
  152. 1520 WINDOW(160,70)
  153. 1530 WINDOW(280,60)
  154. 1540 WINDOW(290,55)
  155. 1550 WINDOW(310,100)
  156. 1560 WINDOW(312,9)
  157.